home *** CD-ROM | disk | FTP | other *** search
/ Haight-Ashbury in the Sixties / Haight-Ashbury in the Sixties (1996)(Rockument)(Disc 1 of 2)[Mac-PC].iso / mac / MAIN / TUNEIN / TUNEIN01.DIR / 00135_Script_135 < prev    next >
Text File  |  1995-06-01  |  588b  |  24 lines
  1. on mouseDown
  2.   global lastArticle, thisLine, thisArticle
  3.   set thisLine = the mouseLine
  4.   if thisLine = -1 then
  5.     exit
  6.   end if
  7.   if line thisLine of field "Oracle Articles"  = "╫" then
  8.     beep
  9.     exit
  10.   end if
  11.   if line thisLine of field "Oracle Articles"  = "" then
  12.     beep
  13.     exit
  14.   else
  15.     hilite line thisLine of field "Oracle Articles"  
  16.     puppetSound "add a movie"
  17.     updatestage
  18.     set thisArticle = line thisLine of field ("Oracle Articles/"&lastArticle&" order")
  19.     set the text of cast "Article" = the text of cast thisArticle
  20.   end if
  21. end
  22.  
  23.  
  24.